home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_17280.txt < prev    next >
Text File  |  1989-01-07  |  2KB  |  81 lines
  1. -- card: 17280 from stack: in
  2. -- bmap block id: 15504
  3. -- flags: 0000
  4. -- background id: 12278
  5. -- name: trapword
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=21 top=279 right=301 bottom=121
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Trap Word
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put card field "name" into temp
  23.   put trapword(temp) into card field "word"
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (field)
  29. -- low flags: 00
  30. -- high flags: 2004
  31. -- rect: left=127 top=278 right=304 bottom=284
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 3
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: name
  40. ----- HyperTalk script -----
  41. on returninfield
  42.   click at loc of card button "trap word"
  43. end returninfield
  44.  
  45. on enterinfield
  46.  
  47. end enterinfield
  48.  
  49.  
  50.  
  51. -- part 3 (field)
  52. -- low flags: 01
  53. -- high flags: 2004
  54. -- rect: left=293 top=279 right=303 bottom=396
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 3
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: word
  63.  
  64.  
  65. -- part contents for background part 68
  66. ----- text -----
  67. The Trapword XFCN takes a trap name as a parameter and returns its Trap Word as a result. For example, 
  68.                          put trapword(getnextevent) 
  69. will put the value A970 (the trap word of GetNextEvent) into the message box. Note that the trap name should not begin with an underscore character. Also, the case of the characters in the trap name are not significant.
  70.  
  71. Try the demo below for more details. Also see how this is used in the main disassembly card for another example.
  72.  
  73.  
  74.  
  75. -- part contents for card part 3
  76. ----- text -----
  77. ????
  78.  
  79. -- part contents for card part 2
  80. ----- text -----
  81. _MenuChoice